home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Bible.cpt / Hyper Sword / background_2636.txt < prev    next >
Text File  |  1989-07-04  |  13KB  |  597 lines
  1. -- background: 2636 from stack: in
  2. -- bmap block id: 6331
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=84 top=59 right=106 bottom=444
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 21
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Question
  20.  
  21.  
  22. -- part 12 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=45 top=109 right=131 bottom=479
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 21
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Answer A
  34.  
  35.  
  36. -- part 13 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=45 top=132 right=154 bottom=479
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 21
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Answer B
  48.  
  49.  
  50. -- part 14 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=45 top=155 right=177 bottom=479
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 21
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Answer C
  62.  
  63.  
  64. -- part 15 (field)
  65. -- low flags: 00
  66. -- high flags: 0002
  67. -- rect: left=45 top=178 right=200 bottom=479
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 21
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Answer D
  76.  
  77.  
  78. -- part 16 (field)
  79. -- low flags: 00
  80. -- high flags: 0002
  81. -- rect: left=45 top=201 right=223 bottom=479
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 21
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Answer E
  90.  
  91.  
  92. -- part 17 (field)
  93. -- low flags: 00
  94. -- high flags: 0002
  95. -- rect: left=45 top=224 right=246 bottom=479
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 21
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Answer F
  104.  
  105.  
  106. -- part 18 (field)
  107. -- low flags: 00
  108. -- high flags: 0002
  109. -- rect: left=45 top=247 right=269 bottom=479
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 21
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Answer G
  118.  
  119.  
  120. -- part 19 (field)
  121. -- low flags: 00
  122. -- high flags: 0002
  123. -- rect: left=45 top=270 right=292 bottom=479
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 21
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Answer H
  132.  
  133.  
  134. -- part 21 (field)
  135. -- low flags: 00
  136. -- high flags: 0004
  137. -- rect: left=110 top=297 right=317 bottom=417
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 204
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Correction
  146.  
  147.  
  148. -- part 22 (button)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=418 top=296 right=316 bottom=435
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 1828 / 1828
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Create Card
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   set the cursor to 4
  163.   put background field id"37" into calc1
  164.   add 1 to calc1
  165.   doMenu "New Card"
  166.   put calc1 into background field id"37"
  167.   doMenu "New Button"
  168.   set style of button"New Button" to checkbox
  169.   get the rect of background button id"26"
  170.   set rect of button"New Button" to it
  171.   set showname of button"New Button" to false
  172.   get the script of background button id"26"
  173.   set script of button"New Button"to it
  174.   domenu "Copy Button"
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 23 (button)
  180. -- low flags: 00
  181. -- high flags: 8002
  182. -- rect: left=444 top=59 right=106 bottom=507
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 11045 / 11045
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Sword Menu
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   global duplicate
  194.   global number
  195.   global scoring
  196.   put 1 into duplicate
  197.   put 0 into scoring
  198.   put 1 into number
  199.   set the cursor to 4
  200.   hide background button id"49"
  201.   hide background field id"48"
  202.   hide background field id"52"
  203.   hide background button id"53"
  204.   put"" into background field id"21"
  205.   visual venetian blinds
  206.   go to card id 5442
  207. end mouseUp
  208.  
  209.  
  210.  
  211.  
  212. -- part 24 (button)
  213. -- low flags: 00
  214. -- high flags: 0002
  215. -- rect: left=486 top=295 right=314 bottom=507
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 16560 / 16560
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: Next
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   set the cursor to 4
  227.   hide background button id"49"
  228.   hide background field id"48"
  229.   hide background field id"52"
  230.   hide background button id"53"
  231.   global scoring
  232.   global duplicate
  233.   global number
  234.   add 1 to number
  235.   put"" into background field id"21"
  236.   Visual Dissolve
  237.   if duplicate>2 then subtract 1 from scoring
  238.   domenu"Next"
  239.   put 1 into duplicate
  240. end mouseUp
  241.  
  242.  
  243.  
  244. -- part 26 (button)
  245. -- low flags: 00
  246. -- high flags: 0000
  247. -- rect: left=143 top=24 right=47 bottom=165
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: New Button
  256. ----- HyperTalk script -----
  257. on mouseUp
  258.   set the cursor to 4
  259.   global duplicate
  260.   put"" into background field id"21"
  261.   get loc of background field id"21"
  262.   choose browse tool
  263.   click at it
  264.   play"boing"
  265.   type"Sorry your answer is incorrect"
  266.   add 1 to duplicate
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 30 (button)
  272. -- low flags: 00
  273. -- high flags: 0000
  274. -- rect: left=368 top=24 right=47 bottom=390
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: New Button
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   set the cursor to 4
  286.   global duplicate
  287.   global scoring
  288.   add 1 to scoring
  289.   put"" into background field id"21"
  290.   get loc of background field id"21"
  291.   choose browse tool
  292.   Play"Applause"
  293.   click at it
  294.   type"Correct - Keep up the Good Work."
  295.   add 1 to duplicate
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 31 (button)
  301. -- low flags: 00
  302. -- high flags: 0000
  303. -- rect: left=443 top=296 right=316 bottom=460
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 10527 / 10527
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: New Button
  312. ----- HyperTalk script -----
  313. on mouseUp
  314.   set the cursor to 4
  315.   set style of button"New Button" to checkbox
  316.   get the rect of background button id"30"
  317.   set rect of button"New Button" to it
  318.   set showname of button"New Button" to false
  319.   get the script of background button id"30"
  320.   set script of button"New Button"to it
  321.   choose button tool
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 32 (field)
  327. -- low flags: 00
  328. -- high flags: 0004
  329. -- rect: left=1 top=21 right=57 bottom=134
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 21
  334. -- text size: 12
  335. -- style flags: 1280
  336. -- line height: 16
  337. -- part name: Description
  338.  
  339.  
  340. -- part 33 (button)
  341. -- low flags: 00
  342. -- high flags: 8002
  343. -- rect: left=19 top=59 right=106 bottom=84
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 20186 / 20186
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: Sort
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   set lockscreen to true
  355.   set cantmodify of this stack to false
  356.   set the cursor to 4
  357.   hide background button id"49"
  358.   hide background field id"48"
  359.   hide background field id"52"
  360.   hide background button id"53"
  361.   put"" into background field id"21"
  362.   Sort numeric by background field id"37"
  363.   set cantmodify of this stack to true
  364.   domenu"Back"
  365.   set lockscreen to false
  366. end mouseUp
  367.  
  368.  
  369.  
  370. -- part 37 (field)
  371. -- low flags: 00
  372. -- high flags: 0004
  373. -- rect: left=439 top=22 right=43 bottom=510
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 1
  377. -- font id: 5
  378. -- text size: 14
  379. -- style flags: 0
  380. -- line height: 18
  381. -- part name: 
  382.  
  383.  
  384. -- part 38 (button)
  385. -- low flags: 00
  386. -- high flags: 0000
  387. -- rect: left=488 top=207 right=280 bottom=506
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 1
  391. -- font id: 0
  392. -- text size: 12
  393. -- style flags: 0
  394. -- line height: 16
  395. -- part name: Score
  396. ----- HyperTalk script -----
  397. on mouseUp
  398.   set the cursor to 4
  399.   hide background button id"49"
  400.   hide background field id"48"
  401.   hide background field id"52"
  402.   hide background button id"53"
  403.   global duplicate
  404.   put"" into background field id"21"
  405.   set the lockscreen to true
  406.   go to card id "15199"
  407.   global number
  408.   global scoring
  409.   if duplicate>2 then subtract 1 from scoring
  410.   put scoring into card field id"2"
  411.   put number into card field id"3"
  412.   put 100 into percentage
  413.   divide percentage by number
  414.   multiply percentage by scoring
  415.   put percentage into card field id"1"
  416. end mouseUp
  417.  
  418.  
  419.  
  420.  
  421. -- part 43 (field)
  422. -- low flags: 00
  423. -- high flags: 0004
  424. -- rect: left=44 top=320 right=341 bottom=481
  425. -- title width / last selected line: 0
  426. -- icon id / first selected line: 0 / 0
  427. -- text alignment: 1
  428. -- font id: 5
  429. -- text size: 14
  430. -- style flags: 0
  431. -- line height: 18
  432. -- part name: Reference Location
  433.  
  434.  
  435. -- part 44 (button)
  436. -- low flags: 00
  437. -- high flags: 0000
  438. -- rect: left=486 top=117 right=199 bottom=506
  439. -- title width / last selected line: 0
  440. -- icon id / first selected line: 0 / 0
  441. -- text alignment: 1
  442. -- font id: 0
  443. -- text size: 12
  444. -- style flags: 0
  445. -- line height: 16
  446. -- part name: RANDOMIZE
  447. ----- HyperTalk script -----
  448. on mouseUp
  449.   Play"Transporter"
  450.   set the cursor to 4
  451.   hide background button id"49"
  452.   hide background field id"48"
  453.   hide background field id"52"
  454.   hide background button id"53"
  455.   global scoring
  456.   global duplicate
  457.   global number
  458.   add 1 to number
  459.   put"" into background field id"21"
  460.   Visual Dissolve
  461.   if duplicate>2 then subtract 1 from scoring
  462.   go to any card of bg id"2636"
  463.   put 1 into duplicate
  464. end mouseUp
  465.  
  466.  
  467.  
  468.  
  469.  
  470. -- part 48 (field)
  471. -- low flags: 80
  472. -- high flags: 0007
  473. -- rect: left=85 top=194 right=292 bottom=443
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 0
  477. -- font id: 3
  478. -- text size: 12
  479. -- style flags: 0
  480. -- line height: 16
  481. -- part name: 
  482.  
  483.  
  484. -- part 49 (button)
  485. -- low flags: 80
  486. -- high flags: 8002
  487. -- rect: left=54 top=194 right=243 bottom=85
  488. -- title width / last selected line: 0
  489. -- icon id / first selected line: 25854 / 25854
  490. -- text alignment: 1
  491. -- font id: 0
  492. -- text size: 12
  493. -- style flags: 0
  494. -- line height: 16
  495. -- part name: Helps
  496. ----- HyperTalk script -----
  497. on mouseUp
  498.   set the cursor to 4
  499.   hide background field id"48"
  500.   hide background button id"49"
  501. end mouseUp
  502.  
  503.  
  504.  
  505. -- part 50 (button)
  506. -- low flags: 00
  507. -- high flags: 0000
  508. -- rect: left=65 top=293 right=320 bottom=94
  509. -- title width / last selected line: 0
  510. -- icon id / first selected line: 8538 / 8538
  511. -- text alignment: 1
  512. -- font id: 0
  513. -- text size: 12
  514. -- style flags: 0
  515. -- line height: 16
  516. -- part name: New Button
  517. ----- HyperTalk script -----
  518. on mouseUp
  519.   set the cursor to 4
  520.   global duplicate
  521.   if duplicate >= 2 then
  522.     show background field id"48"
  523.     show background button id"49"
  524.   else
  525.     visual dissolve
  526.     go to card id"7627"
  527.     wait 2 seconds
  528.     visual dissolve
  529.     domenu"Back"
  530.   end if
  531. end mouseUp
  532.  
  533.  
  534.  
  535. -- part 52 (field)
  536. -- low flags: 80
  537. -- high flags: 0007
  538. -- rect: left=85 top=59 right=189 bottom=443
  539. -- title width / last selected line: 0
  540. -- icon id / first selected line: 0 / 0
  541. -- text alignment: 0
  542. -- font id: 3
  543. -- text size: 12
  544. -- style flags: 0
  545. -- line height: 16
  546. -- part name: 
  547.  
  548.  
  549. -- part 53 (button)
  550. -- low flags: 80
  551. -- high flags: 8004
  552. -- rect: left=19 top=59 right=107 bottom=85
  553. -- title width / last selected line: 0
  554. -- icon id / first selected line: 28524 / 28524
  555. -- text alignment: 1
  556. -- font id: 0
  557. -- text size: 12
  558. -- style flags: 0
  559. -- line height: 16
  560. -- part name: Hide Verse
  561. ----- HyperTalk script -----
  562. on mouseUp
  563.   set the cursor to 4
  564.   hide background field id"52"
  565.   hide background button id"53"
  566. end mouseUp
  567.  
  568.  
  569.  
  570. -- part 54 (button)
  571. -- low flags: 00
  572. -- high flags: 0000
  573. -- rect: left=5 top=300 right=334 bottom=39
  574. -- title width / last selected line: 0
  575. -- icon id / first selected line: 1 / 1
  576. -- text alignment: 1
  577. -- font id: 0
  578. -- text size: 12
  579. -- style flags: 0
  580. -- line height: 16
  581. -- part name: 
  582. ----- HyperTalk script -----
  583. on mouseUp
  584.   set the cursor to 4
  585.   global duplicate
  586.   if duplicate >= 2 then
  587.     show background field id"52"
  588.     show background button id"53"
  589.   else
  590.     visual dissolve
  591.     go to card id"7627"
  592.     wait 2 seconds
  593.     visual dissolve
  594.     domenu"Back"
  595.   end if
  596. end mouseup
  597.